home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / comm / fido / xprfts072.lzh / upversion.rexx < prev    next >
OS/2 REXX Batch file  |  1992-09-15  |  747b  |  33 lines
  1. /* Script to generate unique version numbers for Welmat */
  2.  
  3.  
  4. if open('version',"version.data","R") then DO
  5.   Line=readln('version')
  6.   parse var Line Major Minor
  7.   close('version')
  8.   Major=strip(Major)
  9.   Minor=strip(Minor)
  10.   parse upper arg which
  11.   if which='MAJOR' then do
  12.      Major=Major+1
  13.      Minor=0
  14.   end
  15.   if which='MINOR' then do
  16.      Minor=Minor+1
  17.   end
  18.  
  19.   say "Version "Major"."Minor
  20.  
  21.   if open('version',"version.data","W") then DO
  22.     writeln('version',Major" "Minor)
  23.     close('version')
  24.  
  25.     if open('version',"xprlibver.i","W") then DO
  26.       writeln('version',"; Keep track of version numbers.")
  27.       writeln('version','VERSION EQU '||Major)
  28.       writeln('version','REVISION EQU '||Minor)
  29.       close('version')
  30.     end
  31.   end
  32. end
  33.